home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / libs / sphigs / sph_quik.lha / quickdraw / src / quickdraw_pascal.h < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-29  |  3.8 KB  |  131 lines
  1. (** HEADER quickdraw_pascal.h
  2. **)
  3.  
  4. const
  5.    QD__MAX_STRING_SIZE = 128;
  6.  
  7. type
  8.    Point = record
  9.       x, y : integer;
  10.    end;
  11.  
  12.    Rect = record
  13.       top : integer;
  14.       left : integer;
  15.       bottom : integer;
  16.       right : integer;
  17.    end;
  18.  
  19.    Polygon = record
  20.       num_vertices : integer;
  21.       vertices : ^Point;
  22.    end;
  23.  
  24. Patterns = (
  25.    white,
  26.    ltGray,
  27.    gray,
  28.    dkGray,
  29.    black);
  30.  
  31. Colors = (
  32.    whiteColor,
  33.    blackColor,
  34.    redColor,
  35.    greenColor,
  36.    blueColor,
  37.    magentaColor,
  38.    cyanColor,
  39.    yellowColor);
  40.  
  41. PenModes = (
  42.    patCopy,
  43.    patXor);
  44.  
  45. Fonts = (
  46.    FONT__SMALL,
  47.    FONT__MEDIUM,
  48.    FONT__LARGE,
  49.    FONT__LARGEST);
  50.  
  51. LineStyles = (
  52.  
  53.    LINE_STYLE__SOLID,
  54.    LINE_STYLE__ON_OFF_DASH,
  55.    LINE_STYLE__DOUBLE_DASH);
  56.  
  57.  
  58. #ifndef STRING_HEADER
  59. #include "/pro/cs011/include/mstrings.h"
  60. #endif
  61.  
  62.  
  63. procedure InitDraw(width, height : integer); external c;
  64. procedure ClearAll; external c;
  65. procedure DrawGrid(spacing : integer) ; external c;
  66. procedure GetDrawingRect(var r : Rect); external c;
  67. procedure QuitDraw; external c;
  68.  
  69. procedure SetPt(var pt : Point; x, y : integer); external c;
  70. procedure SetRect(var rect : Rect; left, top, right, bottom : integer); external c;
  71. procedure OffsetRect(var rect : Rect; dh, dv : integer);external c;
  72. procedure InsetRect(var rect : Rect; dh, dv : integer);external c;
  73. function  PtInRect(point : Point; rect : Rect): boolean;external c;
  74.  
  75. procedure SetColor(color : Colors) ;external c;
  76. procedure PenPat(pat : Patterns) ;external c;
  77.  
  78. function  Random:integer;external c;
  79. procedure Randomize(seed : integer); external c;
  80. procedure WaitDraw(t:integer);external c;
  81.  
  82. function Button: Boolean;external c;
  83. procedure GetMouse(var x, y : integer); external c;
  84. procedure GetMousePt(var pt : Point); external c;
  85.  
  86. procedure SetLineWidth(lineWidth : integer);external c;
  87. procedure GetLineWidth(var lineWidth : integer);external c;
  88. procedure SetLineStyle(style : LineStyles);external c;
  89. procedure GetLineStyle(var style: LineStyles);external c;
  90. procedure PenMode(mode : PenModes);external c;
  91. procedure GetPenMode(var mode : PenModes);external c;
  92. procedure SetFont(font : Fonts);external c;
  93. procedure GetFont(var font : Fonts);external c;
  94.  
  95. procedure DrawLine(p1, p2 : Point);external c;
  96. procedure EraseLine(p1, p2 : Point);external c;
  97. procedure FrameRect(rect : Rect);external c;
  98. procedure PaintRect(rect : Rect);external c;
  99. procedure InvertRect(rect : Rect);external c;
  100. procedure EraseRect(rect : Rect);external c;
  101. procedure FrameOval(rect : Rect);external c;
  102. procedure PaintOval(rect : Rect);external c;
  103. procedure InvertOval(rect : Rect);external c;
  104. procedure EraseOval(rect : Rect);external c;
  105. procedure FrameArc(rect: Rect;  start, ending : integer);external c;
  106. procedure PaintArc(rect: Rect;  start, ending : integer);external c;
  107. procedure InvertArc(rect: Rect;  start, ending : integer);external c;
  108. procedure EraseArc(rect: Rect;  start, ending : integer);external c;
  109. procedure PaintCircle(x , y, radius : integer); external c;
  110. procedure FrameCircle(x , y, radius : integer); external c;
  111. procedure EraseCircle(x , y, radius : integer); external c;
  112.  
  113. procedure DrawString(s : string; x, y : integer);external c;
  114. procedure QueryStringSize(s : string; var width, height : integer);external c;
  115.  
  116. procedure MoveTo(x, y : integer); external c;
  117. procedure LineTo(x, y : integer); external c;
  118.  
  119. function  CreatePoly: Polygon; external c;
  120. function  CopyPoly(poly: Polygon) : Polygon; external c;
  121. procedure PolyAddPt(var poly : Polygon; x, y: integer); external c;
  122. procedure PolyQueryPt(poly : Polygon; index : integer; var x, y : integer); external c;
  123. procedure FramePoly(poly : Polygon); external c;
  124. procedure ErasePoly(poly : Polygon); external c;
  125. procedure PaintPoly(poly : Polygon); external c;
  126. procedure InsetPoly(var poly: Polygon; dx, dy : integer); external c;
  127. procedure OffsetPoly(var poly: Polygon; dx, dy: integer); external c;
  128.  
  129.  
  130.  
  131.